10 POKE 53280,15:POKE 53281,15
20 IF X=1 THEN GOTO40:REM FLAG X PREVENTS RELOADING IN LINE 20
30 X=1:LOAD "0:ML BASE.OBJ",8,1
40 INPUT "[147]HOW MANY RANDOM STRINGS";X
50 PRINT"[151]"
60 DIM N$(X):ND%=X
70 FORI=1TOX:LN=INT(RND(0)*8)+1
80 FORK=1 TO LN
90 N$(I)=N$(I)+CHR$(INT(RND(0)*26+65))
100 NEXT K
110 PRINT N$(I)+" ";:NEXT I:PRINT
120 PRINT"SORTING IN ASCENDING ORDER..[151]":B=TI
130 POKE 828,0:SYS49152:SORT,A,N$().
140 B=TI-B
150 FORI=0TO X:PRINTN$(I):NEXT:PRINT
160 PRINT:PRINT"SECONDS TO SORT";X;"STRINGS=[157]";B/60